COVID-19 in Iran

This article discusses the COVID-19 situation and affection to Iran in 2021 (until Aug 29, 2021).

Yunqi Chen
09-15-2021

Data Description

Show code
covidcase_raw <- read_csv(here::here("data", "owid-covid-data.csv")) %>% 
  filter(location == "Iran")

df0 <- coronavirus 

df <- coronavirus %>% 
  filter(country == "Iran") %>% 
  group_by(type, date) %>%
  summarise(total_cases = sum(cases)) %>%
  pivot_wider(names_from = type, values_from = total_cases) %>%
  arrange(date) %>%
  mutate(active = confirmed - death - recovered) %>%
  mutate(active_total = cumsum(active),
                recovered_total = cumsum(recovered),
                death_total = cumsum(death)) %>% 
  select(-c(active, recovered, recovered_total, death)) %>% 
  rename("Confirmed Cases" = confirmed,
         "Active Cases"=active_total,
         "Death Cases"= death_total) %>% 
  pivot_longer(cols = c(`Confirmed Cases`:`Death Cases`),
               names_to = "type",
               values_to = "count")
df$count<- df$count/1000

The data in this article is downloaded from Our World in Data1 from Jan1 2020, to Aug 29, 2021.And coronavirus package2 from Jan22 2020, to May27, 2021.

The Fact of COVID-19 Cases in Iran

Show code
p1 <- ggplot(df, aes(x = date, y = count, fill = type, text = type))+
  geom_area()+
  scale_fill_viridis(discrete = TRUE) +
  ggtitle("COVID-19 Situation in Iran, Jan 2020 to May 2021") +
  labs(x = "Time",
       y = "Thousand People")+
  theme_bw()

ggplotly(p1)

Figure 1: Coronavirus disease outbreaks twice in December 2020 and May 2021.

From the figure 1, the most obvious finding is the active cases showing a binomial trend with two tops in December 2020 and May 2021.

The confirmed cases reached peaks before the active cases number reached the peak. This means the coronavirus test is effective. Besides, the active cases are 200-250 times than the confirmed cases. This means that the coronavirus spread very fast, and the control may need to be strengthened.

The death cases show a mineral peak after those two peaks. But generally, the number of death cases is creasing steadily.

Covid-19 Vaccination Status

Show code
vaccine <- covidcase_raw %>% 
  select(date, total_vaccinations, people_vaccinated, people_fully_vaccinated) %>% 
  na.omit() %>% 
  mutate("Total Vaccination Doses" = round(total_vaccinations/85028760*100,2),
         "People Partial Vaccinated"= round(people_vaccinated/85028760*100,2),
         "People Fully Vaccinated"= round(people_fully_vaccinated/85028760*100,2)) %>% 
  pivot_longer(cols = c(`Total Vaccination Doses`:`People Fully Vaccinated`),
               names_to = "Type",
               values_to = "Count")

p2 <- ggplot(vaccine, aes(x = date, y = Count, color = Type))+
  geom_line()+
  geom_point()+
  labs(x = "Time",
       y = "Percentage of Population",
       title = "Vaccination Status in Iran, Apr 2021 to Aug 2021") +
  theme_bw() + 
  scale_color_manual(values=c("#CC7351", "#DED7B1", "#9DAB86"))
ggplotly(p2)

Figure 2: Until Aug 24, the vaccination doses are sufficient. 20% of people got at least one dose of vaccine, and 7% of people were fully vaccinated.

From the figure 2, Since Apr 14, 2021, Iranian have started to get vaccinated. Before June, the vaccination doses are not sufficient - the difference between the number of fully vaccinated people and vaccination doses is small.

Since mid-July, the number of vaccination doses increased sharply and the same as the number of partially vaccinated people. This means, from then on, the supply of vaccination doses was increased, and the government may have expanded publicity.

Iran and the neighboring countries

Show code
library(tidycovid19)
plot_covid19_stripes(
  type = "confirmed",
  countries = c("IRN", "AFG", "PAK", "TKM", "AZE", "TUR", "IRQ", "UAE", "OMN","SA"),
  sort_countries = "countries"
)
Iran and Turkey have similar trends in new cases and are the highest in the neighboring area.

Figure 3: Iran and Turkey have similar trends in new cases and are the highest in the neighboring area.

As 3 indicates, Iran and Turkey have the lightest color, which means they have more new confirmed cases in the neighboring area. According to the latest data, Afghanistan and Oman had put the coronavirus under control. On the contrary, the other countries still have very light colors on the right end.

Some countries show the same trend of coronavirus bursts. Except for Afghanistan and Oman, the other countries all show two peaks in May and July 2021.

Show code
plot_covid19_stripes(
#  type = "confirmed",
  countries = c("IRN", "AFG", "PAK", "TKM", "AZE", "TUR", "IRQ", "UAE", "OMN","SA"),
  sort_countries = "countries"
)
Iran had the highest number of coronavirus death cases in the neighboring area.

Figure 4: Iran had the highest number of coronavirus death cases in the neighboring area.

From the figure 4, Iran shows the highest death cases number within the neighboring area. And the death cases were still high in the past few weeks.

Same as the confirmed cases, death cases peaked simultaneously among countries except for Afghanistan and Oman in May and July 2021.

Reference

R Packages

Websites


  1. Hannah Ritchie, Edouard Mathieu, Lucas Rodés-Guirao, Cameron Appel, Charlie Giattino, Esteban Ortiz-Ospina, Joe Hasell, Bobbie Macdonald, Diana Beltekian and Max Roser (2020) - “Coronavirus Pandemic (COVID-19)”. Published online at OurWorldInData.org. Retrieved from: ‘https://ourworldindata.org/coronavirus’ [Online Resource]↩︎

  2. Rami Krispin and Jarrett Byrnes (2021). coronavirus: The 2019 Novel Coronavirus COVID-19 (2019-nCoV) Dataset. R package version 0.3.22. https://CRAN.R-project.org/package=coronavirus↩︎